# Create safety/adverse events data
safety_data <- data.frame(
Adverse_Event = c(
"Any TEAE", "Fatigue", "Upper respiratory tract infection",
"Anemia", "Neutropenia", "Grade ≥3 TEAE",
"Asymptomatic lipase increase", "Treatment-related AEs",
"Treatment-related fatigue", "Serious TEAE", "Thrombocytopenia"
),
Patients_n = c(48, 14, 10, 9, 5, 17, 4, 32, 10, 2, 0),
Percentage = c(94, 28, 20, 18, 10, 33, 8, 63, 20, 4, 0),
Max_Grade = c("3", "2", "2", "3", "3", "3", "3", "2", "2", "3", "0")
)
# Create efficacy data
efficacy_data <- data.frame(
Response_Type = c(
"Overall Response Rate (CHR + PHR)", "Complete Hematologic Response (CHR)",
"Partial Hematologic Response (PHR)",
"Durable hematologic response (≥12 weeks)",
"Durable CHR (≥12 weeks)",
"Median time to onset of CHR, days (range)",
"Median time to durable CHR, days (range)",
"Any mutCALR VAF reduction",
"mutCALR VAF reduction ≥20%",
"Partial Molecular Response (≥50% VAF reduction)",
"Durable peripheral blood count remission"
),
Patients_Evaluable = c(51, 51, 51, 41, 41, NA, NA, 41, 41, 41, 41),
Responders_n = c(41, 37, 4, 21, 16, NA, NA, 37, 18, 8, 16),
Percentage = c(80, 73, 8, 51, 39, NA, NA, 90, 44, 20, 39),
Time_to_Response = c("21 days median", "21 days (8-324)", "21 days median",
"≥12 weeks sustained", "≥12 weeks sustained",
"21 (8-324)", "15 (13-125)",
"Variable", "Variable", "Variable", "≥12 weeks")
)